home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
441
/
fplib20
/
fpcmp.s
< prev
next >
Wrap
Text File
|
1990-11-23
|
1KB
|
49 lines
* Copyright (c) 1988 by Sozobon, Limited. Author: Johann Ruegg
*
* Permission is granted to anyone to use this software for any purpose
* on any computer system, and to redistribute it freely, with the
* following restrictions:
* 1) No charge may be made other than reasonable charges for reproduction.
* 2) Modified versions must be clearly marked as such.
* 3) The authors are not responsible for any harmful consequences
* of using this software, even if they result from defects in it.
*
* MODIFICATIONS:
*
* D.W.Brooks 3/5/89 Fixed fpcmp (when both -ve) and fpneg (when zero)
*
.globl fpcmp
.globl _fpcmp
fpcmp:
_fpcmp:
move.l 4(sp),d0
move.l 8(sp),d1
* Start DWB
move.b d0,d2 * See if both signs are negative
and.b d1,d2
bpl L0
move.l d0,d2 * They are: switch arguments so the rest works
move.l d1,d0
move.l d2,d1
L0:
* End DWB
cmp.b d1,d0
bne L1
cmp.l d1,d0
L1:
rts
.globl fpneg
.globl _fpneg
fpneg:
_fpneg:
move.l 4(sp),d0
* DWB removed: tst.b d0 (unnecessary to test for 0.0)
beq L2
eor.b #$80,d0
L2:
rts